Erro :

[mestre fyoda]

porque esta dando esse erro ?

axo que deve ser componentes do bd não instalados , se for me diga qual que devo instalar .

essa parte do codigo fica em azul quando da o erro -> Dim cn As New ADODB.Conection

Eu uso vb6.0

Dim cn As New ADODB.Conection

Dim rs As New ADODB.Recordset

Private Sub Command1_Click()

nome = Replace(nome.Text, "'", "''")

placa = letraplaca.Text & " " & numeroplaca.Text

Dim sql As String

sql = "INSERT INTO clientes (nome,endereco,numero,telefone,rg,modelo,ano,placa) VALUES ('" & nome.Text & "', '" & endereco.Text & "', '" & numero.Text & "','" & telefone.Text & "','" & rg.Text & "','" & modelo.List & "','" & ano.Text & "','" & placa & "');"

cn.Execute sql

Form1.Close

End Sub

Private Sub Form_Load()

cn.CursorLocation = adUseClient 'Define o cursor como local

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\mecanico.mdb" 'Abre o BD

rs.Open "SELECT * FROM clientes", cn, adOpenDynamic, adLockOptimistic 'Abre a tabela no objeto "rs"

End Sub

[mestre fyoda]

pode botar cadeado .