Private Sub Copy_Tab() Dim createSql1 As String con = New MySqlConnection(myConnectionString) con.Open() Dim tblname = TextBox3.Text