pessoal olha só.
eu tenho a seguinte função

Function ExcluiUsuario()
Dim del As Variant
Dim sql As String

rs.Close
del = MsgBox("Deseja realmente excluir esse usuário", vbQuestion + vbOKCancel, "Aviso")
If del = vbOK Then
'sql = "Delete (Usuario, Nome, Senha, Tipo_Nivel, " _
'& "Departamento) " _
'& " from Usuarios where Tipo_Nivel = " & frmCadastroUsuario.txtTipoNivel.Text & " "
'rs.Open = "Delete from Usuarios where Tipo_Nivel = 3 and Nome = 'LOLO' "
rs.Open "delete FROM USUARIOS WHERE Tipo_Nivel = " & frmCadastroUsuario.txtTipoNivel.Text & " and '" & frmCadastroUsuario.txtNome.Text & "'  ", Conn, 3, 3
'MsgBox sql
'Open App.Path & "SQL.txt" For Output As #1
'Print #1, sql
'Close #1
'rs.Delete
End If

Set rs = Nothing
MsgBox "Usuário excluído com sucesso!", vbInformation, "Usuarios"
End Function

só q está dando um erro na instrução delete, mais sinceramente não sei o q é. pq seu eu jogar a instrução no query analyser funciona perfeitamente e no sistema não.
no sistema dá o sequinte erro:

[odbc sql server driver][sql server] line1: incorret syntax error near 'astro'

achei q poderia ser meu odbc, mais não é porque consigo inserir.

por favor me ajudem nisso

Kara, esse código ta bem estranho.... primeiro vamos ao inicio, vc nem precisa declarar uma variavel para receber a resposta, faça assim:

 

if msgbox("Deseja realmente excluir o usuario?",vbquestion + vbYesNoCancel ,"Excluindo registro) = vbyes then

    'coloque aqui seu codigo

endif

 

Como pode ver vc economiza uma variavel (principalmente variant, q é péssimo para perfomarce, use integer que usa bem menos recursos, no msgbox use vbyesnocancel, que tem mais a ver com uma pergunta do que escolher Ok e cancel.

 

No delete vc não precisa estipular campos, coloque apenas delete from tabela (isso no msde), caso seja access acho que precisa por delete * from tabela

No seu codigo ta cheio de open, de comentarios, fora que vc esta dando um .open quando o certo creio que seria .execute

conexao.execute "delete from usuarios where tipo_nivel = 3 and nome='LOLO'"

 

Veja se funciona.... t+

 

 

 

eu já resolvi o problema

 

fechem o tópico por favor.

Só vc pode fazer isso....