特急！！！关于数据连接，和局域网中搜索服务器的问题

Question

第一个问题现在也解决了，
mindatamodule.ADOConnection1.Close;
  mindatamodule.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1'+';Password='+(edit3.Text)+';Persist Security Info=True'+';server='+combobox1.Text+';User ID='+edit2.Text+';initial Catalog=Uniplus'+'; Data Source='+edit1.Text+';';
  try
  mindatamodule.ADOConnection1.Open;
  except
  showmessage('数据库连接不成功');
写法如上，
第二个问题，简单一点就是，搜索所有局域网中带有数据库的电脑的IP地址，并将其放入combobox1.items.add()中，同时combobox1.text:=combobox1.items.strings[0],我是不知搜索代码怎样来写