Fatal error encountered during command execution.

Public Function CreateDataTable_withSelect(ByRef dt As DataTable, ByVal strSQL As String) As DataTable
Try
Dim con As New connectionClass
dt.Rows.Clear()
objCon = New MySqlConnection
objCon = con.connect
If (objCon.State = ConnectionState.Open) Then objCon.Close()
objCon.Open()
Comm.CommandText = strSQL
Comm.Connection = objCon
Comm.CommandTimeout = 0

adp = New MySqlDataAdapter(Comm)
adp.Fill(dt)
dt.AcceptChanges()
Catch ex As Exception
Displaymsgbox(Formname, "CreateDataTable_withSelect", ex.Message)
Finally
adp.Dispose()
objCon.Close()
objCon.Dispose()
End Try