s New frmZp
        frmNewWin.Image1.Picture = imgZp.Picture
        frmNewWin.Show vbModal
        Set frmNewWin = Nothing
    End Sub
    
    Private Sub rs_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
        If rs.AbsolutePosition < 1 Then
            txtName.Enabled = False
            txtPassword.Enabled = False
            chkZt.Enabled = False
            txtBz.Enabled = False
            cmdOpenzp.Enabled = False
            cmdSaveZp.Enabled = False
            cmdDel.Enabled = False
        Else
            txtName