[resolved]help...Newby with database

Ok this is my fisrt attempt at working with data bases
I have made a form that creates an access database, then creates a row.

Code:

---

Private Sub Command1_Click()

  Text2.Text = GetPublicIP()
      Dim conCatalog As ADOX.Catalog
    On Error Resume Next
    Set conCatalog = New ADOX.Catalog
    conCatalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                      "Data Source='C:\vb6files\FtpIpFiles\ip.mdb'"
   
    MsgBox "A new Microsoft JET database named IP.mdb has been created"
   
    Set conCatalog = Nothing
   
    Dim conIp As ADODB.Connection
    Dim strSQL As String
   
    Set conIp = New ADODB.Connection
    conIp.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                      "Data Source='C:\vb6files\FtpIpFiles\ip.mdb'"
   
    strSQL = "CREATE TABLE CurrentIp (" & _
            "Ip VarChar(32));"
   
    conIp.Execute strSQL
   
    MsgBox "A table named IpAddy has been added to the IP.mdb database"

---

Now I need to insert the value of text2,txt into the data base, this is my code so far,

Code:

---

Private Sub cmdInsertIp_Click()
    Dim conIp As New ADODB.Recordset
    Dim conCatalog As New ADODB.Connection

conCatalog.Open "Provider='Microsoft.JET.OLEDB.4.0';" & _
                      "Data Source='C:\vb6files\FtpIpFiles\ip.mdb'"
 

If conIp.Supports(adAddNew) Then

        With conIp
            .AddNew
            .Fields("ip") = Me.Text2.Text
            .Update
        End With
       
        MsgBox "text2.txt has been added"
    End If
   
   
    Me.Text2.SetFocus

 
   


   
    Set conIp = Nothing
    conCatalog.Close
    Set conCatalog = Nothing
End Sub

---

it does not work but does not return error either?
please help, thanks

I replied to this question in the Classic VB forum:

http://www.vbforums.com/showthread.php?t=333318

Regards,

Thank You :thumb: