iliminar delect

Dim ConnectionString As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "pedro..accdb")
Dim query As String = "DELETE FROM Clientes WHERE ID = @IDCliente"

Dim command As New OleDbCommand(query, ConnectionString)

' Elimina apenas o cliente que consta na Textbox
command.Parameters.Add("@IDCliente", OleDbType.Integer).Value = IDClienteTextbox.Text

ConnectionString.Open()

Dim x As Integer = command.ExecuteNonQuery()

If x < 1 Then
     MessageBox.Show("Erro ao eliminar", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
     MessageBox.Show("Eliminado com sucesso!", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

ConnectionString.Close()
command = Nothing