Private Sub insert(ByVal custid As String, ByVal empid As Integer, ByVal
odate As Date)
        Dim sql As String = "INSERT INTO Orders (CustomerID, EmployeeID,
OrderDate) VALUES(?, ?, ?)"
        Dim cmd As New OleDb.OleDbCommand(sql, conn)
        cmd.Parameters.Add("p1", custid)
        cmd.Parameters.Add("p2", empid)
        cmd.Parameters.Add("p3", OleDb.OleDbType.Date).Value = odate
        Try
            conn.Open()
            cmd.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox("Insert failed: " & ex.Message)
        Finally
            conn.Close()
        End Try
    End Sub