[Programmer-VB] Mohon Bantuan nih sintak gak bisa ngapus seluruh data di database sql server2000

[dedegress]

'modul koneksi
If cn.State = 1 Then cn.Close
cn.Open "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;" & "dsn=siasat;uid=;pwd=;"
FrmSplash.Show

Sub query(Perintah As String)
If rs.State = 1 Then rs.Close
rs.Open Perintah, cn, adOpenDynamic, adLockOptimistic
End Sub

'sintak buat delete datanya
Sub deleteAllRecords()
Perintah = "select * from transaksi"
Screen.MousePointer = vbHourglass
        cn.Execute "DELETE * FROM transaksi where nisn =' " & nisn.Text & "'"
        DoEvents
        Screen.MousePointer = vbDefault
        MsgBox "Transaksi Pembayaran Berhasil"
  
    On Error GoTo 0
    Exit Sub

ErrorHandler:
    Screen.MousePointer = vbDefault
    MsgBox "Error: " & Err.Number & vbCrLf & vbCrLf & Err.Description, 
vbExclamation, "Error (deleteAllRecords)"

End Sub

sintak tersebut tidak bisa menghapus keseluruhan data di table transaksi mohon 
dikoreksi kesalahannya
terima kasih