خطأ الكود فالدخول

السلام عليكم ورحمة الله وبركاته

عندي سؤال اذا دخل المستخدم للبرنامج بيدخل أسمه وبعدين المفروض تتطلعه فورم ثاني بيكون فيه

اسمه وdatagrid

وبيضيف الداتافيه لو دخل مرة ثانية المفروض الداتا اللي دخلها قبل تكون موجودة كيف اسويه؟

هذا الكود اللي كاتبنه

Private Sub cmdOK_Click()

If cn.State = 1 Then cn.Close

'End If

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Daily.mdb;Persist Security Info=False"

rs.Open "Select username from account", cn, adOpenDynamic, adLockOptimistic

If txtUserName = "" Then

MsgBox ("You Have to Enter The Name")

rs.AddNew

rs("username") = txtUserName.Text

rs.Update

If rschk.State = 1 Then

rschk.Close

rschk.Open "acctype", cn, adOpenDynamic, adLockOptimistic

If rschk.RecordCount <> 0 Then

rschk.Find ("username='" + txtUserName.Text)

If rschk.EOF = False Then

If IsNull(rschk.Fields(0).Value) = False Then

MsgBox ("User Name already There")

Exit Sub

End If

End If

End If

End If

'End If

Else

categorymaster.Show

End If

Unload Me

End Sub