Public Sub TableMerge(pOrdno, pMergeFrom, pMergeTo, pUserID)
Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command
Dim Parameter1, Parameter2, Parameter3, Parameter4, Parameter5 As ADODB.Parameter
If pTableStatus = "Merge" Then
ElseIf pTableStatus = "Split" Then
Else
Exit Sub
End If
Set cnn = New ADODB.Connection
Set cmd = New ADODB.Command
cnn.ConnectionString = "driver={SQL Server};" & "server=" & pMyServer & ";" & "uid=;pwd=;database=" & pMyDB & ""
cnn.Open
Set Parameter1 = cmd.CreateParameter("@Ordno", adInteger, adParamInput, pOrdno)
Set Parameter2 = cmd.CreateParameter("@MergeFrom", adVarChar, adParamInput, 10, pMergeFrom)
Set Parameter3 = cmd.CreateParameter("@MergeTo", adVarChar, adParamInput, 10, pMergeTo)
Set Parameter4 = cmd.CreateParameter("@UserID", adVarChar, adParamInput, 10, pUserID)
Set Parameter5 = cmd.CreateParameter("@Station", adVarChar, adParamInput, 10, pStation)
Parameter1.Value = pOrdno
Parameter2.Value = pMergeFrom
Parameter3.Value = pMergeTo
Parameter4.Value = pUserID
Parameter5.Value = pStation
cmd.ActiveConnection = cnn
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append Parameter1
cmd.Parameters.Append Parameter2
cmd.Parameters.Append Parameter3
cmd.Parameters.Append Parameter4
cmd.Parameters.Append Parameter5
cmd.CommandText = "sp_Merge"
cmd.Execute
Set cmd = Nothing
cnn.Close
DoCmd.OpenForm "fTables", acNormal
End Sub