Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles SubmitTime.Click Dim WEdate As String Dim HRworked As String Dim Empname2 As String Empname2 = EmpName.Text HRworked = TotalHrs.Text WEdate = ComboBox1.Text Dim Conn As New OleDbConnection Dim Comm As New OleDbCommand Conn.ConnectionString = CreateConnString("c:\Data\TimeData.xls") Comm.Connection = Conn Comm.CommandText = "Update" & WEdate & "SET HoursWorked =" & HRworked & "Where Ename = " & EmpName & "" Try Conn.Open() Comm.ExecuteNonQuery() MsgBox("Updated.") Conn.Close() Catch ex As Exception MsgBox("Error.") Conn.Close() End Try End Sub