I have a VB Form that I want to run only through Access;but, I am having trouble configuring MSComm.

Any assistance is greatly appreciated

steve

-------cut-----
Option Compare Database
Option Explicit

Private Sub Btn_Send_Mess_Click()

MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.Output = NoSequential.Text + Chr$(&HD)
MSComm1.PortOpen = False

End Sub

Private Sub Btn_Clr_Int_Ext_Buffer_Click()
MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.Output = Chr$(&H1B) + Chr$(&H1) + Chr$(&H1)
'Clear Internal and External Buffers

MSComm1.PortOpen = False

End Sub

Private Sub Btn_Exit_Click()

If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
Unload Form1

End Sub

Private Sub Btn_Prt_OFF_Click()

MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.Output = Chr$(&H1B) + Chr$(&H1) + Chr$(&HA)
'Place Print Mode OFF

MSComm1.PortOpen = False

End Sub

Private Sub Btn_Prt_ON_Click()

MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.Output = Chr$(&H1B) + Chr$(&H1) + Chr$(&H9)
'Place Print Mode ON

MSComm1.PortOpen = False

End Sub


Private Sub Command1_Click()
'Data1.RecordSource = SELECT * FROM VJ1 " & WHERE [MsgNo] = [Text2] Data1.Refresh
'SELECT [MsgNo}, [Message] FROM VJ1 Where [MsgNo] = [Text2] ORDER BY [Message]DESC

End Sub

Private Sub MSComm1_OnComm()
Dim Send_Out As String

Send_Out = MSComm1.Output

End Sub
-----cut----