Opret (VB)

Hej...

Jeg opretter sådan brugernavn i VB.

Dim Brugernavn As String, Password As String
Brugernavn = InputBox(\"Indtast Brugernavn\", OpretBruger)
Data1.Recordset.AddNew
Data1.Recordset(\"Brugernavn\") = Brugernavn
Data1.Recordset.Update
Password = InputBox(\"Indtast Password\", OpretBruger)
Data1.Recordset.AddNew
Data1.Recordset(\"Password\") = Password
Data1.Recordset.Update
End Sub

men jeg får brugernavn i en række og password i en række...og det vil jeg ik have :(

Eks.

Brugernavn(Felt) Password(Felt)
Testerne       
                Testerner

håber du forstår hvad jeg mener...