aliminar desde visual con SQL server 2005

[cibernet]

ola! disculpen necesito ayuda soy nuevo aqui y tambien programando con SQL server mi problema es el siguiente, realizo la busqueda y una vez teniendo los datos necesito eliminarlospero no puedo, la base de datos esta se encuentra ubicada en el servidor (de hecho la conexion ya esta eralizada) estoy utilizando el siguinte codigo para eliminar pero me marca error y ya no se que hacer.. ayudenme por favor es urgente!!... de anetamno le doy las gracias.

Private Sub KewlButtons3_Click()
Set cmd = New ADODB.Command
Set rsACS = New ADODB.Recordset
Set rsACS2 = New ADODB.Recordset

' Establecimiento de conexion
Set cmd.ActiveConnection = cnn1

cmd.CommandText = _
"select count(*) as sCNT from alumno where partcipante = '" & Trim(Text1.Text) & "'"


rsACS.Open cmd, , adOpenDymanic, adLockBatchOptimistic

rsACS.MoveFirst
Do While Not rsACS.EOF
If (rsACS!sCNT > 0) Then
' Monitor "El ambito " & cIDAbrev & " Ya existe en la B.D."

Else
cmd.CommandText = "DELETE alumno FROM ('" & partcipante = Text1.Text & "','" & evento = Text2.Text & "','" & fecha = Text3.Text + "','" & planta = Text4.Text & "','" & turno = Text5.Text + "','" & habitacion = Text5.Text + "')"
Text1.SetFocus
rsACS2.Open cmd, , adOpenDymanic, adLockBatchOptimistic

End If
rsACS.MoveNext
Loop
rsACS.Close
Unload Me
MsgBox "Datos Eliminados"

End Sub


espero una pronat respuesta gracias.

[RobiBaggio]

Viene de Ayuda General.

[flaviovich]

Código:

cmd.CommandText = _
  "DELETE FROM alumno " & _
  "WHERE partcipante = '" & Text1.Text & "' AND evento = '" & Text2.Text & "' AND fecha = '" & Text3.Text & "' AND planta = '" & Text4.Text & "' AND turno = '" & Text5.Text & "' AND habitacion = '" & Text5.Text & "'"

[iislas]

Te sugiero, como ya lo he mencionado en otros casos, que desarrolles CLIENTE-SERVIDOR, esto es, CERO codigo T-SQL en tu front (VB) y pura ejecucion de Store Procedure.