VB.net Connection Timeout

Hi

How would I apply a connection Timeout of 30 seconds to the following code

    Public Function DoesSQLTableExist(ByVal tblName As String, ByVal cnnStr As String) As Boolean
        Try

            ' Open connection to the database
            Dim dbConn As New SqlConnection(cnnStr)

            dbConn.Open()

            Dim restrictions(3) As String
            restrictions(2) = tblName
            Dim dbTbl As DataTable = dbConn.GetSchema("Tables", restrictions)

            If dbTbl.Rows.Count = 0 Then
                'Table does not exist
                DoesSQLTableExist = False
            Else
                'Table exists
                DoesSQLTableExist = True
            End If

            dbTbl.Dispose()
            dbConn.Close()
            dbConn.Dispose()

        Catch ex As Exception
            MsgBox(ex.Message & " hhr5")
        End Try
    End Function

Select allOpen in new window