Salve sto facedo un applicazione per client e server all'avvio del programma client ho inserito il codice qui sotto nel form load per salvare l'ip del client e registrarlo in un database però mi da un errore sulla riga ( Dim rdrprg As OleDbDataReader = cmd.ExecuteReader) dicendomi che la Sequenza di ordinamento selezionata non è supportata dal sistema operativo, qualcuno sa aiutarmi?

Dim loip() As System.Net.IPAddress = _
System.Net.Dns.GetHostAddresses(System.Net.Dns.Get HostName)
ip = loip(0).ToString

'MessageBox.Show(ip)
strConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\Lavoro\prova2.accdb"
strConn.Open()


Dim IDScena As Long = 0
Dim strSqlVer As String = "select * from Tabella1 ORDER BY ID"
Dim cmd As New OleDbCommand(strSqlVer, strConn)
Dim rdrprg As OleDbDataReader = cmd.ExecuteReader
While rdrprg.Read
IDScena = rdrprg("ID")
End While
rdrprg.Close()
IDScena = IDScena + 1
Dim strsql As String = "INSERT INTO Tabella1 (ID,ip) select " _
& IDScena & ",'" + ip + "'"
Dim cmdIns As New OleDbCommand(strsql, strConn)
Try
cmdIns.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
End Try
strConn.Close()