Some basic dot.net examples

If Dir(Application.StartupPath + "\Coninfo.ini") <> "" Then
            FStream = New FileStream(Application.StartupPath + "\Coninfo.ini", FileMode.Open, FileAccess.Read)
            FSReader = New StreamReader(FStream)
            FSReader.BaseStream.Seek(0, SeekOrigin.Begin)
            compid = GetLineInfo(FSReader.ReadLine).ToUpper
            compname = GetLineInfo(FSReader.ReadLine).ToUpper
            servername = GetLineInfo(FSReader.ReadLine).ToUpper
            backuppath = GetLineInfo(FSReader.ReadLine).ToUpper
        End If

        con.ConnectionString = "server=" + servername + ";database=master;uid=sa;pwd=jos@123"
        con.Open()

        Dim sql As String = "select name from sysdatabases where name like '%" + compid & "%'"
        cmd = New SqlCommand(sql, con)
        da = New SqlDataAdapter(cmd)
        dt = New DataTable
        da.Fill(dt)
        Dim DF As String
        DF = "^" + DateAndTime.Today.Day.ToString
        DF += "-" + DateAndTime.Today.Month.ToString
        DF += "-" + DateAndTime.Today.Year.ToString
        DF += DateAndTime.Now.Hour.ToString
        DF += DateAndTime.Now.Minute.ToString