Visual Basic - AYUDA URGENTE

Amigos del foro por favor solicito me ayuden pues soy nuevo en visual basic estoy tratando de insertar un registro a mi tabla que la tengo en sql pero no me da ningun resultado, supuestamente graba pero cuando reviso la base no existe ninguna informacion

A continuacion les pongo mi programa para que por favor me ayuden

por favor me indican que debo poner en estas lineas tambien

conn.CursorLocation = adUseServer ------ NOMBRE? NO ENTIENDO EL adUseServer
conn.CursorLocation = adUseClient------NOMBRE???? no entiendo el adUseClient

aqui esta mi programa

Private Sub cmdInsertar_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Dim nRecords As Long

Dim codvend As String
Dim nomcli As String
Dim ruccli As String
Dim nomvend As String

Set rs = New ADODB.Recordset
conn.CursorLocation = adUseServer
conn.CursorLocation = adUseClient
conn.ConnectionString = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=REMESAS;Data Source=EBENAVIDES"
conn.Open

codvend = Text1.Text
nomcli = Text2.Text
ruccli = Text3.Text
nomvend = Text4.Text

sql = sql & "INSERT INTO clientes"
sql = sql & "(clpv_cod_carg,clpv_cod_vend,clpv_nom_clpv,clpv_ape_clpv,clpv_ruc_clpv,clpv_rep_clpv,clpv_cob_clpv,clpv_ved_clpv)VALUES ('','" & codvend & "', '" & nomcli & "','','" & ruccli & "','','','" & nomvend & "')"
Set rs = conn.Execute(sql, nRecords, 0)


'MsgBox sql
' con esto verificas la sintaxis.
If nRecords > 0 Then

MsgBox "Registro añadido a la Base de Datos", vbOKOnly + vbInformation, "Informacion"

End If

End Sub

deceo saber la solucion s lod problemas clasicos de comunicacion entre procesos
. La cena de los filosofos en el programa visual basic!!! urgente!! por favor me lo tiraron asi sin ninguna esplicacion gracias!!!

porfa que alguien me mande el problema de los filosofos