Can anyone teaching me how to transfer .CSV file append into one of the SQL Database?

e.g.
Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim strconnstring As String
Dim text As String
text = Text1.text
strconnstring = "PROVIDER=MSDASQL;dsn=ags_week4;uid=kelvin;pwd=;data source=ags_week4" 'This is my Data Source
conn.ConnectionString = strconnstring
conn.CursorLocation = adUseServer
conn.Open