' Connection string για SQL Server 2000
Dim rdaOleDbConnectString As String = "Provider=SQLOLEDB;Data Source=192.168.0.14;Initial Catalog=Hydro;User ID=sa;Password=;"
' Initialize the RDA object.
Dim rda As SqlCeRemoteDataAccess = Nothing
rda = New SqlCeRemoteDataAccess
rda.InternetLogin = "dalton"
rda.InternetPassword = "dalton"
rda.InternetUrl = "http://192.168.0.14/Hydrometer/sqlcesa30.dll"
rda.LocalConnectionString = "Data Source=\Hydrometers\Hydrodb.sdf"
Try
rda.Push("Points", rdaOleDbConnectString, RdaBatchOption.BatchingOn)
MsgBox("Η αποστολή των δεδομένων ήταν επιτυχής", MsgBoxStyle.Information, "Αποστολή Δεδομένων")
Catch err As SqlCeException
MessageBox.Show(" " & err.Message & err.HResult & " " & err.NativeError)
Finally
rda.Dispose()
End Try