O QUE ESTA ERRADO ???

A CONECÇÃO CONSEGUI FAZER MAIS NÃO ESTA GRAVANDO O CERTO NÃO MUDA FICA SEMPRE O MESMO CODIGO POR FAVOR

Public Conexao As New ADODB.Connection

Public Function Conecta(ByVal Valor As Boolean)
       Dim CON_STR As String
       Dim SERVER As String
       Dim USER As String
       Dim SENHA As String
       Dim PORTA As String
       Dim BD As String

'verifica se a conexao está aberta e fecha para evitar erros
       If Conexao.State = 1 Then
          Conexao.Close
          Set Conexao = Nothing
          Valor = True
       End If

       If Valor = True Then
          SERVER = "dois.com.br"
          BD = "eletro_99"
          PORTA = "3306"
          USER = "eqqqjrino"
          SENHA = "farv"
          CON_STR = "DRIVER={MySQL ODBC 3.51 DRIVER};" _
          & "Server=" & SERVER & ";" _
          & "Port=" & PORTA & ";" _
          & "Database=" & BD & ";" _
          & "UID=" & USER & ";" _
          & "PWD=" & SENHA & ";" _
          & "Option=3;"

          With Conexao
              .CursorLocation = adUseClient
              .ConnectionString = CON_STR
              .Open CON_STR
          End With
       Else
          Conexao.Close
          Set Conexao = Nothing
       End If
End Function

Private Sub Command1_Click()
        Dim MySqlQuery As String
        Dim MyDb_Estoque As Database
        Dim MyTable_Estoque As Recordset
        Dim MyId_Estoque As Long

        Dim cn As New ADODB.Connection
        Dim rs1 As New ADODB.Recordset

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:Dois_SySDados.mdb;Persist Security Info=False"

On Error Resume Next
cn.Open

        If Err <> 0 Then
           MsgBox Err.Description
           Exit Sub
        End If


        Conecta True 'abre a conexão

        Dim rs As Recordset
        SQL = "SELECT * FROM products_description" ' where products_name <>'' order by products_name desc;"
        Set rs = Conexao.Execute(SQL)

        If Not (rs.EOF And rs.BOF) Then
           rs.MoveMax
           lblTitulo.Caption = rs.RecordCount
           rs.MoveMin
        End If

'atualiza o nosso codigo no servidor
        Do While Not rs.EOF
'BUSCO NO CADASTRO PARA ATUALIZAR O CODIGO NA BASE DA LOJA VIRTUAL

           rs1.Open "select * from ESTOQUE where Descricao='" & rs!products_description & "'", cn, 3, 3

           If Not (rs1.EOF And rs1.BOF) Then
              MySqlQuery = ""
              MySqlQuery = "UPDATE products_description SET codigo_produto=" & rs1!codigo & " WHERE products_description='" & rs1!descricao & "'"

              Conexao.Execute MySqlQuery
           End If

           lblTitulo.Caption = CLng(lblTitulo.Caption) - 1
           lblTitulo.Refresh
           rs.MoveNext
        Loop

        If Not (rs.EOF And rs.BOF) Then
           rs.MoveMin
        End If

        Do While Not rs.EOF

List1.AddItem rs!products_id & " | " & rs!products_name & " - CODIGO=" & rs!codigo_produto

rs.MoveNext
Loop

        Conecta False 'Fecha a Conexão
        rs1.Close
        cn.Close
End Sub

o que esta errado por favor