Conexão BD - VBWEB

Salve!
Estou aprendendo VB através da apostila, do CD do Super CD VB Macoratti, e estou enroscado na conexão com a tabela Cadastro Usuários. Acho que é na "Sub_Gravação", pois não grava inclusão e alteração.

Já pedi socorro anteriormente, mas não consegui "debugar" como foi orientado e desde então fico batendo cabeça para encontrar meu erro.

O código digitado está transcrito abaixo.

Private Sub GravarDados()

Dim cnnComando As New ADODB.Command
Dim vConfMsg As Integer
Dim vErro As Boolean
On Error GoTo errGravacao

'Inicializ-a as variáveis auxiliares:
vConfMsg = vbExclamation + vbOKOnly + vbSystemModal
vErro = False

'Verifica os dados digitados:
If txtNomeUsuario.Text = Empty Then
MsgBox "O campo nome não foi preenchido", vConfMsg, "Erro"
vErro = True
End If

If txtEndereco.Text = Empty Then
MsgBox "Campo endereço não foi preenchido", vConfMsg, "Erro"
vErro = True
End If
If txtCidade.Text = Empty Then
MsgBox "Campo cidade não foi preenchido", vConfMsg, "Erro"
vErro = True
End If
If txtEstado.Text = Empty Then
MsgBox "Campo estado não foi preenchido", vConfMsg, "Erro"
vErro = True
End If
If txtCEP.Text = Empty Then
MsgBox "Campo CEP não foi preenchido", vConfMsg, "Erro"
vErro = True
End If
'Se aconteceu um erro de dogitação, sai da sub sem gravar:
If vErro Then Exit Sub

Screen.MousePointer = vbHourglass

With cnnComando
.ActiveConnection = cnnBiblio
.CommandType = adCmdText

'Verifica a operação e cria o comando SQL correspondente:
If vInclusao Then
'Inclusão
.CommandText = "INSERT INTO Usuarios " & _
"(CodUsuario, NomeUsuario, Endereco, Cidade, " & _
"Estado, CEP, Telefone) VALUES ('" & _
txtCodUsuario & ",'" & _
txtNomeUsuario.Text & "','" & _
txtEndereco.Text & "','" & _
txtCidade.Text & "','" & _
txtEstado.Text & "','" & _
txtCEP.Text & "','" & _
txtTelefone.Text & "');"

Else
'Alteração
.CommandText = "UPDATE Usuarios SET " & _
"NomeUsuario = '" & txtNomeUsuario.Text & "'," & _
"Endereco = '," & txtEndereco.Text & "'," & _
"Cidade = '," & txtCidade.Text & "'," & _
"Estado = '," & txtEstado.Text & "'," & _
"CEP = '," & txtCEP.Text & "' " & _
"Telefone = '," & txtTelefone.Text & "' " & _
"WHERE CodUsuario = " & txtCodUsuario.Text & ";"
End If
.Execute
End With
MsgBox "Gravação concluida com Sucesso.", _
vbApplicationModal + vbExclamation + vbOKOnly, _
"Gravação OK"

'Chama a sub que limpa os dados do formulário
LimparTela

Saida:
Screen.MousePointer = vbDefault
Set cnnComando = Nothing
Exit Sub

errGravacao:
With Err
If .Number <> 0 Then
MsgBox "Houve um erro durante a gravação dos dados na tabela.", _
vbExclamation + vbOKOnly + vbApplicationModal, "Erro"
.Number = 0
GoTo Saida
End If
End With

End Sub

Preciso sair desse parafuso para não desistir do apredizado.

Grato a quem me dedicar atenção.