To Attach Databse

        ConOpen()  -- Connection Open
        Dim cmd As New SqlCommand()
        Dim txt As String

        txt = "sp_attach_db @dbname = N'HMS', " & vbCrLf & _
              "@filename1 = N'C:\Database\HMS_data.MDF', " & vbCrLf & _
              "@filename2 = N'C:\Database\HMS_log.LDF'"

        cmd.CommandText = txt
        cmd.Connection = con
        cmd.ExecuteNonQuery()
        MsgBox("Database created successfully")