can u give me a module code for connection
i am using mysql
table: list1
database: database1
username: root
password: N/A

If you are looking for the connection string find it here.
Can find a lot of pseudo code by hitting search engines.

As per your previous post -

Public Sub ServerConnect()
Dim conn As ADODB.Connection
Dim strIPAddress As String
Set conn = New ADODB.Connection
strIPAddress = '###Add the ip address here!!!
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
            & "SERVER=" & strIPAddress & ";" _
            & "DATABASE=ADMS;" _ 'The database name here to connect to!!!
            & "UID=root;" _ 'In 99% it is the root as UID, unless you have specified a different name when you installed MySql!!!
            & "PWD=;" _ 'Here the password is empty, add password if you have set it when you have installed MySql. It is always good to have a password set!!!!
            & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384 'Is all options enabled, add, delete, edit, photo blobs etc.!!!
conn.CursorLocation = adUseClient
End Sub

Please mark this as solved, we will be concentrating on the other post. For other members reading this, the other post can be found HERE.:)