vb 6.0 and access database connectivity etc

Dim conn As New adodb.Connection
Dim rs As New adodb.Recordset
Option Explicit

Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()

LoginSucceeded = False
Me.Hide
End Sub

Private Sub cmdOK_Click()

'check for correct password
If txtPassword1.Text = Hour(Now) And txtPassword2.Text = Minute(Now) And txtPassword3.Text = Day(Now) And txtPassword4 = Month(Now) And txtPassword5.Text = Year(Now) And txtUserName.Text = "Admin" Then

LoginSucceeded = True
entryFun

Me.Hide
Form1.Show
Else
MsgBox "Invalid Password, try again!", , "Login"
txtPassword1.SetFocus

End If
End Sub






Sub entryFun()
Dim Hour As String
Dim Minute As String
Dim Day As String
Dim Mon As String
Dim Yr As String

conn.CursorLocation = adUseClient
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\rebeL\Documents\Database3.mdb;Persist Security Info=False"
rs.Open "select * from Table1 ", conn, adOpenStatic, adLockOptimistic

rs.AddNew "Hour", txtPassword1.Text

rs.AddNew "Minute", txtPassword2.Text

rs.AddNew "Day", txtPassword3.Text

rs.AddNew "Mon", txtPassword4.Text

rs.AddNew "Yr", txtPassword5.Text

rs.Update

rs.Close


End Sub



Private Sub Form_Load()
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub


THIS IS THE CODE I HAVE USED AND THE DATA IS NOT GETTING SAVED IN THE CORRECT FIELDS IN THE MDB FILE TABLE ..... ITS GETTING SCATTERED. I HAVE ALSO ATTACHED THE SNAPSHOTS PLEASE HELP ME I HAVE MY COLLEGE PRACTICAL BASED ON THIS !!!

Attached Images