Send til Access Database

ok er lidt nybegynder til VB og databaser men nogen der lige gider forklare hvad jeg har gjort forkert her?

Database : database.mdb
Tabel : Kunder
fld : Navn


Private Sub Command1_Click()

Dim DB As Database
Dim rs As Recordset
Set DB = OpenDatabase("database.mdb")

strSQL = "Insert into Kunder (Navn)"

strSQL = strSQL & "Values( '" & Text1.Text & "' )"


Conn.Execute (strSQL)

Set DB = Nothing
End Sub


?? :<