Fórum APAGAR TODOS REGISTROS DE UMA TABELA NO SQLSERVER VIA VB #405952

BOA TARDE

PRECISO ZERAR UMA TABELA  DE UMA CONSULTA EM TEMPO DE EXECUCAO  MAS O CODIGO ABAIXO NAO ESTA FUNCIONANDO ALGUEM PODE ME AJUDAR ?
data2.ConnectionString = fprincipal.StatusBar1.Panels(3).Text
data2.RecordSource = "SELECT * from  CONSULTAMOVIMENTO "
data2.Refresh
While Not data2.Recordset.EOF
data2.Recordset.Delete
data2.Recordset.MoveNext
Wend

data2.Refresh
MsgBox ("CONSULTA ZERADA")
APRESENTA O ERRO RUNTIME ERROR -2147467259
INFORMACOES INSUFICIENTES OU INCORRETAS SOBRE A COLUNA CHAVE