gistfile1.vb

Private Sub btnOK_Click()

Dim msg As String
msg = Me.txtMessage.Value

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Set db = CurrentDb

Dim qdf As QueryDef
Set qdf = CurrentDb.QueryDefs("Roster")

Set roster = qdf.OpenRecordset()

roster.MoveFirst

Do While roster.EOF = False

SendSMS "+17045943984", roster![ContactNumber], msg

roster.MoveNext

Loop

End Sub