Run time error '400' form already displayed cant show modally

i am trying to call Userform in Module

Dim cnt As ADODB.Connection
Dim rst1 As ADODB.Recordset, rst2 As ADODB.Recordset
Dim stDB As String, stSQL1 As String, stSQL2 As String
Dim strConn As String
Dim wbBook As Workbook
Dim Sheet1 As Worksheet
Dim i
Dim lnField As Long, lnCount As Long
Dim dataStr As String
'Instantiate the ADO-objects.
Set cnt = New ADODB.Connection
Set rst1 = New ADODB.Recordset
Set rst2 = New ADODB.Recordset

Set wbBook = ThisWorkbook
Set Sheet1 = wbBook.Worksheets(1)

'Path to the database.
stDB = "mysql32"

'Create the connectionstring.
strConn = "Driver=MySQL ODBC 5.2 Unicode Driver;" _
& "Data Source=" & stDB & ";"

BMS.Show -------------------------------------here calling my Userfom(BMS)

'The 1st raw SQL-statement to be executed.
'stSQL1 = "SELECT * FROM tblbatch_headers where idBatch " & batchID & "order by col_seq asc"

'The 2nd raw SQL-statement to be executed.
stSQL2 = "SELECT * FROM " & BMS.TextBox1 & " where FQR_User_Code='" & Environ("userName") & "' and line_status in('QP')" '
'Clear the worksheet.
' Sheet1.Range("A3:FA3").CurrentRegion.Clear

With cnt
.Open (strConn) 'Open the connection.
.CursorLocation = adUseClient 'Necessary to disconnect the recordset.
End With

With rst1
' .Open stSQL1, cnt 'Create the recordset.
Set .ActiveConnection = Nothing 'Disconnect the recordset.
End With

With rst2
.Open stSQL2, cnt 'Create the recordset.
Set .ActiveConnection = Nothing 'Disconnect the recordset.
End With

With Sheet1
' .Cells(2, 1).CopyFromRecordset rst1 'Copy the 1st recordset.
For i = 2 To rst2.Fields.Count
'.Cells(2, i).Value = rst2.Fields(i - 1).Name
Next i
.Cells(3, 1).CopyFromRecordset rst2 'Copy the 2nd recordset.
End With

'Release objects from the memory.
' rst1.Close
' Set rst1 = Nothing
rst2.Close
Set rst2 = Nothing
cnt.Close
Set cnt = Nothing

With Sheets("Sheet1")
.Unprotect "password"
.Cells.Locked = False
.Columns(2).Locked = True
.Columns(3).Locked = True
.Columns(4).Locked = True
.Columns(5).Locked = True
.Columns(6).Locked = True
.Protect "password", AllowFiltering:=True
End With


End Sub

sorry for that

This is the code i in userform button

Please Login or Register  to view this content.

see i have attached my workbook