Code:
Dim conn As SqlCeConnection = Nothing
Try
conn = New SqlCeConnection("Data Source=" & userSpecifiedPath)
conn.Open()
Dim cmd As SqlCeCommand = conn.CreateCommand()
Dim dAdp As SqlCeDataAdapter = New SqlCeDataAdapter()
Dim ds As New DataSet
cmd.CommandText = String.Format("UPDATE TABLE SET NUMBER = '{0}' WHERE '{1}' = '{2}'", zero, ListBox3.Items, DATE)
dAdp.UpdateCommand = cmd
cmd.ExecuteNonQuery()
Catch ex As Exception
Finally
conn.Close()
End TryCode:
cmd.CommandText = String.Format("UPDATE TABLE SET NUMBER = '{0}' WHERE '{1}' = '{2}'", zero, ListBox3.Items, DATE)