Mangler en sub som kan indeholde min connectionstring

Jeg har lavet et modul som indeholde følgende
Imports System
Imports System.Data
Imports System.Data.OleDb






Module Module1
    Public main As New frmmain
    Public emner As New frmOpretEmner
    Public OpretEmne As New frmOpretEmne
    Public Kommentarer As New frmKommentarer
    Public OpretKomtar As New frmOpretKomtar
    Public komtiletemne As New frmkomtiletemne
    Public kommentar As New frmkommentar
    Public Redigerkommentar As New frmredigerkommentar
    Public Komkom As New frmkomkom
    Public Login As New frmLogin


    Dim consql As String = "Provider=SQLOLEDB.1;Password=XXXXXX;Persist Security Info=True;User ID=YYYYYYY;Initial Catalog=forum;Data Source=ZZZZZZZZZZ    Dim forbindelse As New OleDbConnection(consql)

    Public Sub SQLinsert(ByVal Data As String)
        Dim kommando As New OleDbCommand(Data, forbindelse)
        forbindelse.Open()
        kommando.ExecuteNonQuery()
        forbindelse.Close()
    End Sub

    Public Sub SQLdelete(ByVal Data As String)
        Dim kommando As New OleDbCommand(Data, forbindelse)
        forbindelse.Open()
        kommando.ExecuteNonQuery()
        forbindelse.Close()
    End Sub

    Public Sub SQLupdate(ByVal Data As String)
        Dim kommando As New OleDbCommand(Data, forbindelse)
        forbindelse.Open()
        kommando.ExecuteNonQuery()
        forbindelse.Close()
    End Sub

    Public Function SQLselect(ByVal Data As String) As DataSet
        Dim tempset As New DataSet
        Dim Adapter As New OleDbDataAdapter(Data, forbindelse)
        tempset.Reset()
        Adapter.Fill(tempset)
        SQLselect = tempset
    End Function


End Module

samtidigt har jeg lavet en form som indeholder følgende:

    Public Sub godkend()
        Dim kodeord As String
        Dim Brugernavn As String

        Brugernavn = TextBox1.Text
        kodeord = TextBox2.Text

        If Brugernavn = "Forumbruger" And kodeord = "forumkode" Then
            Me.Hide()
           
        Else
            MsgBox("du har ikke indtaste brugernavn eller adganskode korrekt", MsgBoxStyle.Critical, "Fejl")
            Login.Refresh()
            TextBox1.Text = ""
            TextBox2.Text = ""
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        godkend()
    End Sub
End Class

hvordan får jeg opbygget en sub som kan modtage username og password fra login formen, men som samtidigt kan skabe forbindelsen til den SQL subs som jeg har lavet.
ALle Sql forespørgsler i programmet bruger dem.
Hvordan bygger jeg en ordentlig login form som kan låse MDI parent formen og sende de 2 parametre til connectionformen.