cmd.CommandType = adCmdFile

  Dim cmd As New ADODB.Command
  Dim prm As ADODB.Parameter
  Set cmd.ActiveConnection = frmLogon.cn
   cmd.CommandType = adCmdText

   Open  "D:\PROGRAMMING\DNK\SQL\modify_users.sql"  For Input As # 1 
   cmd.CommandText = ""
   Dim strLine As String
   While Not EOF( 1 )
    Line Input # 1 , strLine
    cmd.CommandText = cmd.CommandText + strLine
   Wend
   Close # 1 
   cmd.Execute